home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / patches / script.patch < prev    next >
Encoding:
Text File  |  1993-09-16  |  1.2 KB  |  26 lines  |  [TEXT/CCL2]
  1. (defrecord ScriptRunStatus 
  2.    (script :signed-byte)
  3.    (var :signed-byte) ; used to be "variant" but that's reserved for lisp records!
  4.    )
  5.  
  6. (defrecord ItlbExtRecord 
  7.    (base :itlbrecord)           ; un-extended ItlbRecord
  8.    (itlbLocalSize :signed-long) ; size of script's local record
  9.    (itlbMonoFond :signed-integer); default monospace FOND ID
  10.    (itlbMonoSize :signed-integer); default monospace font size
  11.    (itlbPrefFond :signed-integer); preferred FOND ID
  12.    (itlbPrefSize :signed-integer); preferred font size
  13.    (itlbSmallFond :signed-integer); default small FOND ID
  14.    (itlbSmallSize :signed-integer); default small font size
  15.    (itlbSysFond :signed-integer); default system FOND ID
  16.    (itlbSysSize :signed-integer); default system font size
  17.    (itlbAppFond :signed-integer); default application FOND ID
  18.    (itlbAppSize :signed-integer); default application font size
  19.    (itlbHelpFond :signed-integer); default Help Mgr FOND ID
  20.    (itlbHelpSize :signed-integer); default Help Mgr font size
  21.  
  22.    (filler1 :signed-byte)
  23.    (itlbValidStyles :unsigned-byte); set of valid styles for script
  24.    (filler2 :signed-byte)
  25.    (itlbAliasStyle :unsigned-byte); style (set) to mark aliases
  26.    )